home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 276-300 / 288 / plotdata2d / plotdata.inc < prev    next >
Text File  |  1995-03-14  |  1KB  |  40 lines
  1.     Integer
  2.      1    YES, NO, LINEAR, LOG, SEMILOG, XAXIS, YAXIS, SEXP, LEXP, MAXVAL,
  3.      2    MAXPAIRS, TKMK, SYMSIZE
  4. C
  5.     Parameter
  6.      1    ( YES = 1, NO = 0,
  7.      2      LINEAR = 0, LOG = 1, SEMILOG = 2,
  8.      3      XAXIS = 0, YAXIS = 1,
  9.      4      SEXP = -10, LEXP = 10,
  10.      5      MAXVAL = (LEXP-SEXP)*10,
  11.      6      MAXPAIRS = 4000,
  12.      7      TKMK = 4,
  13.      8      SYMSIZE = 4 )
  14. C
  15.     Real
  16.      1    MaxX, MaxY, MinX, MinY, dsep, X(MAXPAIRS), Y(MAXPAIRS),
  17.      2    values(0:MAXVAL), SF, user_max, user_min
  18. C
  19.     Integer
  20.      1    s_h, s_w, s_d, w_h, w_w, lefoff, rigoff, topoff, botoff, grid,
  21.      2    xtype, ytype, symdraw, line, pts(MAXPAIRS/2), linedraw, RP,
  22.      3    pixels(0:MAXVAL), p_loff, p_roff, p_toff, p_boff, gridline,
  23.      4    lefpt, rigpt, toppt, botpt
  24. C
  25.     Character
  26.      1    s_tit*80, w_tit*80, x_lab*60, y_lab*60
  27. C
  28.     Common / ScrnData /
  29.      1    s_h, s_w, s_d, w_h, w_w, lefoff, rigoff, topoff, botoff, grid,
  30.      2    xtype, ytype, dsep, MaxX, MaxY, MinX, MinY, symdraw, linedraw,
  31.      3    p_loff, p_roff, p_toff, p_boff, user_max, user_min, gridline,
  32.      4    RP, lefpt, rigpt, toppt, botpt,
  33.      5    s_tit, w_tit, x_lab, y_lab
  34. C
  35.     Common / Plotdata /
  36.      1    X, Y, line, pts
  37. C
  38.     Common / MarkData /
  39.      1    SF, values, pixels
  40.